home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / RealTime Graphics ActiveX / DATA.3 / Examples / VB / Scroll / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-10-20  |  35.9 KB  |  850 lines
  1. VERSION 5.00
  2. Object = "{7A0C53E3-EB00-11D0-8083-00C0F6A06F60}#1.0#0"; "SCROLLX.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   7248
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   9300
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   7248
  11.    ScaleWidth      =   9300
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin SCROLLXLib.ScrollX ScrollX5 
  14.       Height          =   3252
  15.       Left            =   6120
  16.       TabIndex        =   4
  17.       Top             =   3480
  18.       Width           =   3012
  19.       _Version        =   65536
  20.       _ExtentX        =   5313
  21.       _ExtentY        =   5736
  22.       _StockProps     =   0
  23.       DataCursorHandle=   "Form1.frx":0000
  24.       AxisHandle      =   "Form1.frx":009A
  25.       AxisLableHandle =   "Form1.frx":00C4
  26.       AxisMin         =   "Form1.frx":00EE
  27.       AxisMax         =   "Form1.frx":0128
  28.       ScaleEnable     =   "Form1.frx":0162
  29.       AxisEnable      =   "Form1.frx":0184
  30.       AxisInterceptTrack=   "Form1.frx":01AE
  31.       AxisLabelsEnable=   "Form1.frx":01D8
  32.       AxisScaleMode   =   "Form1.frx":0202
  33.       AxisIntercept   =   "Form1.frx":022C
  34.       AxisColor       =   "Form1.frx":0266
  35.       AxisLineWidth   =   "Form1.frx":0290
  36.       AxisMinorTicks  =   "Form1.frx":02BA
  37.       AxisMajorTickInterval=   "Form1.frx":02E4
  38.       AxisTickStyle   =   "Form1.frx":031E
  39.       AxisAutoAxis    =   "Form1.frx":0348
  40.       AxisLabelPos    =   "Form1.frx":0372
  41.       AxisLabelTimeBase=   "Form1.frx":039C
  42.       AxisLabelAutoUpdate=   "Form1.frx":03C6
  43.       AxisLabelStartHour=   "Form1.frx":03F0
  44.       AxisLabelStartMin=   "Form1.frx":041A
  45.       AxisLabelStartSec=   "Form1.frx":0444
  46.       AxisLabelDecs   =   "Form1.frx":046E
  47.       AxisLabelColor  =   "Form1.frx":0498
  48.       AxisLabelFont   =   "Form1.frx":04C2
  49.       AxisLabelFontStyle=   "Form1.frx":04F4
  50.       AxisLabelFontSize=   "Form1.frx":051E
  51.       AxisNumericStyle=   "Form1.frx":0548
  52.       AxisTitleString =   "Form1.frx":0572
  53.       AxisTitleFont   =   "Form1.frx":0590
  54.       AxisLabelStrings=   "Form1.frx":05BD
  55.       NumAxisLabelStrings=   "Form1.frx":05DB
  56.       AxisLabelStringsEnable=   "Form1.frx":0605
  57.       AxisLabelStringsStart=   "Form1.frx":062F
  58.       AxisTitleColor  =   "Form1.frx":0659
  59.       AxisTitleFontStyle=   "Form1.frx":1DB87
  60.       AxisTitleFontSize=   "Form1.frx":1DBB1
  61.       AxisTitlePos    =   "Form1.frx":1DBDB
  62.       AxisGridEnable  =   "Form1.frx":1DC05
  63.       AxisGridColor   =   "Form1.frx":1DC2F
  64.       AxisGridLineWidth=   "Form1.frx":1DC59
  65.       AxisGridLineStyle=   "Form1.frx":1DC83
  66.       AxisGridType    =   "Form1.frx":1DCAD
  67.       TitleString     =   "Form1.frx":1DCD7
  68.       TitleFont       =   "Form1.frx":1DD03
  69.       TitleColor      =   "Form1.frx":1DD2F
  70.       TitleFontStyle  =   "Form1.frx":1DD55
  71.       TitleFontSize   =   "Form1.frx":1DD7B
  72.       TitlePos        =   "Form1.frx":1DDA1
  73.       PlotHandle      =   "Form1.frx":1DDC7
  74.       DataSet         =   "Form1.frx":1DDF1
  75.       SDataNumPlotPoints=   "Form1.frx":1DE1B
  76.       SDataEnable     =   "Form1.frx":1DE45
  77.       SDataName       =   "Form1.frx":1DE6F
  78.       SDataNumGroups  =   "Form1.frx":1DE92
  79.       SDataType       =   "Form1.frx":1DEBC
  80.       SPlotType       =   "Form1.frx":1DEE6
  81.       SPlotDataset    =   "Form1.frx":1DF10
  82.       SPlotRefAxes    =   "Form1.frx":1DF3A
  83.       SPlotObjectOutlineColor=   "Form1.frx":1DF64
  84.       ScrollStepMode  =   "Form1.frx":1DF8E
  85.       ScrollSweepLineColor=   "Form1.frx":1DFB8
  86.       ScrollRelReset  =   "Form1.frx":1DFE2
  87.       ScrollRelSize   =   "Form1.frx":1E01C
  88.       ScrollSampleInterval=   "Form1.frx":1E056
  89.       ScrollXYNumPoints=   "Form1.frx":1E090
  90.       ScrollDirection =   "Form1.frx":1E0BA
  91.       ScrollBarWidth  =   "Form1.frx":1E0E4
  92.       AxisGridUpdatePeriod=   "Form1.frx":1E11E
  93.       AxisGridUpdateMode=   "Form1.frx":1E158
  94.       ScrollHistoryBufferSize=   "Form1.frx":1E182
  95.       ScrollAlarmUpdatePeriod=   "Form1.frx":1E1AC
  96.       ScrollAlarmUpdateMode=   "Form1.frx":1E1E6
  97.       ScrollAlarmHorizontal=   "Form1.frx":1E210
  98.       SDataSimulationMode=   "Form1.frx":1E23A
  99.       ScrollNormalAlarmColor=   "Form1.frx":1E264
  100.       ScrollLowAlarmColor=   "Form1.frx":1E28E
  101.       ScrollHighAlarmColor=   "Form1.frx":1E2B8
  102.       ScrollLowLowAlarmColor=   "Form1.frx":1E2E2
  103.       ScrollHighHighAlarmColor=   "Form1.frx":1E30C
  104.       ScrollHighHighAlarmEnable=   "Form1.frx":1E336
  105.       ScrollLowAlarmEnable=   "Form1.frx":1E360
  106.       ScrollLowLowAlarmEnable=   "Form1.frx":1E38A
  107.       ScrollHighAlarmEnable=   "Form1.frx":1E3B4
  108.       ScrollAlarmMarksEnable=   "Form1.frx":1E3DE
  109.       ScrollSetpointEnable=   "Form1.frx":1E408
  110.       ScrollHighHighAlarmValue=   "Form1.frx":1E432
  111.       ScrollHighAlarmValue=   "Form1.frx":1E46C
  112.       ScrollLowAlarmValue=   "Form1.frx":1E4A6
  113.       ScrollLowLowAlarmValue=   "Form1.frx":1E4E0
  114.       ScrollSetpointValue=   "Form1.frx":1E51A
  115.       SDataXData0     =   "Form1.frx":1E554
  116.       SDataXData1     =   "Form1.frx":1E56E
  117.       SDataXData2     =   "Form1.frx":1E588
  118.       SDataXData3     =   "Form1.frx":1E5A2
  119.       SDataYData0     =   "Form1.frx":1E5BC
  120.       SDataYData1     =   "Form1.frx":1E5D6
  121.       SDataYData2     =   "Form1.frx":1E5F0
  122.       SDataYData3     =   "Form1.frx":1E60A
  123.       ScrollLineColor0=   "Form1.frx":1E624
  124.       ScrollLineColor1=   "Form1.frx":1E6BE
  125.       ScrollLineColor2=   "Form1.frx":1E758
  126.       ScrollLineColor3=   "Form1.frx":1E7F2
  127.       ScrollLineStyle0=   "Form1.frx":1E88C
  128.       ScrollLineStyle1=   "Form1.frx":1E926
  129.       ScrollLineStyle2=   "Form1.frx":1E9C0
  130.       ScrollLineStyle3=   "Form1.frx":1EA5A
  131.       ScrollLineThickness0=   "Form1.frx":1EAF4
  132.       ScrollLineThickness1=   "Form1.frx":1EB8E
  133.       ScrollLineThickness2=   "Form1.frx":1EC28
  134.       ScrollLineThickness3=   "Form1.frx":1ECC2
  135.       ScrollTagName0  =   "Form1.frx":1ED5C
  136.       ScrollTagName1  =   "Form1.frx":1EE4C
  137.       ScrollTagName2  =   "Form1.frx":1EF3C
  138.       ScrollTagName3  =   "Form1.frx":1F02C
  139.    End
  140.    Begin SCROLLXLib.ScrollX ScrollX4 
  141.       Height          =   3852
  142.       Left            =   3240
  143.       TabIndex        =   3
  144.       Top             =   3240
  145.       Width           =   2772
  146.       _Version        =   65536
  147.       _ExtentX        =   4890
  148.       _ExtentY        =   6794
  149.       _StockProps     =   0
  150.       DataCursorHandle=   "Form1.frx":1F11C
  151.       AxisHandle      =   "Form1.frx":1F1B6
  152.       AxisLableHandle =   "Form1.frx":1F1E0
  153.       AxisMin         =   "Form1.frx":1F20A
  154.       AxisMax         =   "Form1.frx":1F244
  155.       ScaleEnable     =   "Form1.frx":1F27E
  156.       AxisEnable      =   "Form1.frx":1F2A0
  157.       AxisInterceptTrack=   "Form1.frx":1F2CA
  158.       AxisLabelsEnable=   "Form1.frx":1F2F4
  159.       AxisScaleMode   =   "Form1.frx":1F31E
  160.       AxisIntercept   =   "Form1.frx":1F348
  161.       AxisColor       =   "Form1.frx":1F382
  162.       AxisLineWidth   =   "Form1.frx":1F3AC
  163.       AxisMinorTicks  =   "Form1.frx":1F3D6
  164.       AxisMajorTickInterval=   "Form1.frx":1F400
  165.       AxisTickStyle   =   "Form1.frx":1F43A
  166.       AxisAutoAxis    =   "Form1.frx":1F464
  167.       AxisLabelPos    =   "Form1.frx":1F48E
  168.       AxisLabelTimeBase=   "Form1.frx":1F4B8
  169.       AxisLabelAutoUpdate=   "Form1.frx":1F4E2
  170.       AxisLabelStartHour=   "Form1.frx":1F50C
  171.       AxisLabelStartMin=   "Form1.frx":1F536
  172.       AxisLabelStartSec=   "Form1.frx":1F560
  173.       AxisLabelDecs   =   "Form1.frx":1F58A
  174.       AxisLabelColor  =   "Form1.frx":1F5B4
  175.       AxisLabelFont   =   "Form1.frx":1F5DE
  176.       AxisLabelFontStyle=   "Form1.frx":1F610
  177.       AxisLabelFontSize=   "Form1.frx":1F63A
  178.       AxisNumericStyle=   "Form1.frx":1F664
  179.       AxisTitleString =   "Form1.frx":1F68E
  180.       AxisTitleFont   =   "Form1.frx":1F6AC
  181.       AxisLabelStrings=   "Form1.frx":1F6D9
  182.       NumAxisLabelStrings=   "Form1.frx":1F6F7
  183.       AxisLabelStringsEnable=   "Form1.frx":1F721
  184.       AxisLabelStringsStart=   "Form1.frx":1F74B
  185.       AxisTitleColor  =   "Form1.frx":1F775
  186.       AxisTitleFontStyle=   "Form1.frx":3CCA3
  187.       AxisTitleFontSize=   "Form1.frx":3CCCD
  188.       AxisTitlePos    =   "Form1.frx":3CCF7
  189.       AxisGridEnable  =   "Form1.frx":3CD21
  190.       AxisGridColor   =   "Form1.frx":3CD4B
  191.       AxisGridLineWidth=   "Form1.frx":3CD75
  192.       AxisGridLineStyle=   "Form1.frx":3CD9F
  193.       AxisGridType    =   "Form1.frx":3CDC9
  194.       TitleString     =   "Form1.frx":3CDF3
  195.       TitleFont       =   "Form1.frx":3CE1F
  196.       TitleColor      =   "Form1.frx":3CE4B
  197.       TitleFontStyle  =   "Form1.frx":3CE71
  198.       TitleFontSize   =   "Form1.frx":3CE97
  199.       TitlePos        =   "Form1.frx":3CEBD
  200.       PlotHandle      =   "Form1.frx":3CEE3
  201.       DataSet         =   "Form1.frx":3CF0D
  202.       SDataNumPlotPoints=   "Form1.frx":3CF37
  203.       SDataEnable     =   "Form1.frx":3CF61
  204.       SDataName       =   "Form1.frx":3CF8B
  205.       SDataNumGroups  =   "Form1.frx":3CFAE
  206.       SDataType       =   "Form1.frx":3CFD8
  207.       SPlotType       =   "Form1.frx":3D002
  208.       SPlotDataset    =   "Form1.frx":3D02C
  209.       SPlotRefAxes    =   "Form1.frx":3D056
  210.       SPlotObjectOutlineColor=   "Form1.frx":3D080
  211.       ScrollStepMode  =   "Form1.frx":3D0AA
  212.       ScrollSweepLineColor=   "Form1.frx":3D0D4
  213.       ScrollRelReset  =   "Form1.frx":3D0FE
  214.       ScrollRelSize   =   "Form1.frx":3D138
  215.       ScrollSampleInterval=   "Form1.frx":3D172
  216.       ScrollXYNumPoints=   "Form1.frx":3D1AC
  217.       ScrollDirection =   "Form1.frx":3D1D6
  218.       ScrollBarWidth  =   "Form1.frx":3D200
  219.       AxisGridUpdatePeriod=   "Form1.frx":3D23A
  220.       AxisGridUpdateMode=   "Form1.frx":3D274
  221.       ScrollHistoryBufferSize=   "Form1.frx":3D29E
  222.       ScrollAlarmUpdatePeriod=   "Form1.frx":3D2C8
  223.       ScrollAlarmUpdateMode=   "Form1.frx":3D302
  224.       ScrollAlarmHorizontal=   "Form1.frx":3D32C
  225.       SDataSimulationMode=   "Form1.frx":3D356
  226.       ScrollNormalAlarmColor=   "Form1.frx":3D380
  227.       ScrollLowAlarmColor=   "Form1.frx":3D3AA
  228.       ScrollHighAlarmColor=   "Form1.frx":3D3D4
  229.       ScrollLowLowAlarmColor=   "Form1.frx":3D3FE
  230.       ScrollHighHighAlarmColor=   "Form1.frx":3D428
  231.       ScrollHighHighAlarmEnable=   "Form1.frx":3D452
  232.       ScrollLowAlarmEnable=   "Form1.frx":3D47C
  233.       ScrollLowLowAlarmEnable=   "Form1.frx":3D4A6
  234.       ScrollHighAlarmEnable=   "Form1.frx":3D4D0
  235.       ScrollAlarmMarksEnable=   "Form1.frx":3D4FA
  236.       ScrollSetpointEnable=   "Form1.frx":3D524
  237.       ScrollHighHighAlarmValue=   "Form1.frx":3D54E
  238.       ScrollHighAlarmValue=   "Form1.frx":3D588
  239.       ScrollLowAlarmValue=   "Form1.frx":3D5C2
  240.       ScrollLowLowAlarmValue=   "Form1.frx":3D5FC
  241.       ScrollSetpointValue=   "Form1.frx":3D636
  242.       SDataXData0     =   "Form1.frx":3D670
  243.       SDataXData1     =   "Form1.frx":3D68A
  244.       SDataXData2     =   "Form1.frx":3D6A4
  245.       SDataXData3     =   "Form1.frx":3D6BE
  246.       SDataYData0     =   "Form1.frx":3D6D8
  247.       SDataYData1     =   "Form1.frx":3D6F2
  248.       SDataYData2     =   "Form1.frx":3D70C
  249.       SDataYData3     =   "Form1.frx":3D726
  250.       ScrollLineColor0=   "Form1.frx":3D740
  251.       ScrollLineColor1=   "Form1.frx":3D7DA
  252.       ScrollLineColor2=   "Form1.frx":3D874
  253.       ScrollLineColor3=   "Form1.frx":3D90E
  254.       ScrollLineStyle0=   "Form1.frx":3D9A8
  255.       ScrollLineStyle1=   "Form1.frx":3DA42
  256.       ScrollLineStyle2=   "Form1.frx":3DADC
  257.       ScrollLineStyle3=   "Form1.frx":3DB76
  258.       ScrollLineThickness0=   "Form1.frx":3DC10
  259.       ScrollLineThickness1=   "Form1.frx":3DCAA
  260.       ScrollLineThickness2=   "Form1.frx":3DD44
  261.       ScrollLineThickness3=   "Form1.frx":3DDDE
  262.       ScrollTagName0  =   "Form1.frx":3DE78
  263.       ScrollTagName1  =   "Form1.frx":3DF68
  264.       ScrollTagName2  =   "Form1.frx":3E058
  265.       ScrollTagName3  =   "Form1.frx":3E148
  266.    End
  267.    Begin SCROLLXLib.ScrollX ScrollX3 
  268.       Height          =   3252
  269.       Left            =   120
  270.       TabIndex        =   2
  271.       Top             =   3480
  272.       Width           =   3012
  273.       _Version        =   65536
  274.       _ExtentX        =   5313
  275.       _ExtentY        =   5736
  276.       _StockProps     =   0
  277.       DataCursorHandle=   "Form1.frx":3E238
  278.       AxisHandle      =   "Form1.frx":3E2D2
  279.       AxisLableHandle =   "Form1.frx":3E2FC
  280.       AxisMin         =   "Form1.frx":3E326
  281.       AxisMax         =   "Form1.frx":3E360
  282.       ScaleEnable     =   "Form1.frx":3E39A
  283.       AxisEnable      =   "Form1.frx":3E3BC
  284.       AxisInterceptTrack=   "Form1.frx":3E3E6
  285.       AxisLabelsEnable=   "Form1.frx":3E410
  286.       AxisScaleMode   =   "Form1.frx":3E43A
  287.       AxisIntercept   =   "Form1.frx":3E464
  288.       AxisColor       =   "Form1.frx":3E49E
  289.       AxisLineWidth   =   "Form1.frx":3E4C8
  290.       AxisMinorTicks  =   "Form1.frx":3E4F2
  291.       AxisMajorTickInterval=   "Form1.frx":3E51C
  292.       AxisTickStyle   =   "Form1.frx":3E556
  293.       AxisAutoAxis    =   "Form1.frx":3E580
  294.       AxisLabelPos    =   "Form1.frx":3E5AA
  295.       AxisLabelTimeBase=   "Form1.frx":3E5D4
  296.       AxisLabelAutoUpdate=   "Form1.frx":3E5FE
  297.       AxisLabelStartHour=   "Form1.frx":3E628
  298.       AxisLabelStartMin=   "Form1.frx":3E652
  299.       AxisLabelStartSec=   "Form1.frx":3E67C
  300.       AxisLabelDecs   =   "Form1.frx":3E6A6
  301.       AxisLabelColor  =   "Form1.frx":3E6D0
  302.       AxisLabelFont   =   "Form1.frx":3E6FA
  303.       AxisLabelFontStyle=   "Form1.frx":3E72C
  304.       AxisLabelFontSize=   "Form1.frx":3E756
  305.       AxisNumericStyle=   "Form1.frx":3E780
  306.       AxisTitleString =   "Form1.frx":3E7AA
  307.       AxisTitleFont   =   "Form1.frx":3E7C8
  308.       AxisLabelStrings=   "Form1.frx":3E7F5
  309.       NumAxisLabelStrings=   "Form1.frx":3E813
  310.       AxisLabelStringsEnable=   "Form1.frx":3E83D
  311.       AxisLabelStringsStart=   "Form1.frx":3E867
  312.       AxisTitleColor  =   "Form1.frx":3E891
  313.       AxisTitleFontStyle=   "Form1.frx":5BDBF
  314.       AxisTitleFontSize=   "Form1.frx":5BDE9
  315.       AxisTitlePos    =   "Form1.frx":5BE13
  316.       AxisGridEnable  =   "Form1.frx":5BE3D
  317.       AxisGridColor   =   "Form1.frx":5BE67
  318.       AxisGridLineWidth=   "Form1.frx":5BE91
  319.       AxisGridLineStyle=   "Form1.frx":5BEBB
  320.       AxisGridType    =   "Form1.frx":5BEE5
  321.       TitleString     =   "Form1.frx":5BF0F
  322.       TitleFont       =   "Form1.frx":5BF3B
  323.       TitleColor      =   "Form1.frx":5BF67
  324.       TitleFontStyle  =   "Form1.frx":5BF8D
  325.       TitleFontSize   =   "Form1.frx":5BFB3
  326.       TitlePos        =   "Form1.frx":5BFD9
  327.       PlotHandle      =   "Form1.frx":5BFFF
  328.       DataSet         =   "Form1.frx":5C029
  329.       SDataNumPlotPoints=   "Form1.frx":5C053
  330.       SDataEnable     =   "Form1.frx":5C07D
  331.       SDataName       =   "Form1.frx":5C0A7
  332.       SDataNumGroups  =   "Form1.frx":5C0CA
  333.       SDataType       =   "Form1.frx":5C0F4
  334.       SPlotType       =   "Form1.frx":5C11E
  335.       SPlotDataset    =   "Form1.frx":5C148
  336.       SPlotRefAxes    =   "Form1.frx":5C172
  337.       SPlotObjectOutlineColor=   "Form1.frx":5C19C
  338.       ScrollStepMode  =   "Form1.frx":5C1C6
  339.       ScrollSweepLineColor=   "Form1.frx":5C1F0
  340.       ScrollRelReset  =   "Form1.frx":5C21A
  341.       ScrollRelSize   =   "Form1.frx":5C254
  342.       ScrollSampleInterval=   "Form1.frx":5C28E
  343.       ScrollXYNumPoints=   "Form1.frx":5C2C8
  344.       ScrollDirection =   "Form1.frx":5C2F2
  345.       ScrollBarWidth  =   "Form1.frx":5C31C
  346.       AxisGridUpdatePeriod=   "Form1.frx":5C356
  347.       AxisGridUpdateMode=   "Form1.frx":5C390
  348.       ScrollHistoryBufferSize=   "Form1.frx":5C3BA
  349.       ScrollAlarmUpdatePeriod=   "Form1.frx":5C3E4
  350.       ScrollAlarmUpdateMode=   "Form1.frx":5C41E
  351.       ScrollAlarmHorizontal=   "Form1.frx":5C448
  352.       SDataSimulationMode=   "Form1.frx":5C472
  353.       ScrollNormalAlarmColor=   "Form1.frx":5C49C
  354.       ScrollLowAlarmColor=   "Form1.frx":5C4C6
  355.       ScrollHighAlarmColor=   "Form1.frx":5C4F0
  356.       ScrollLowLowAlarmColor=   "Form1.frx":5C51A
  357.       ScrollHighHighAlarmColor=   "Form1.frx":5C544
  358.       ScrollHighHighAlarmEnable=   "Form1.frx":5C56E
  359.       ScrollLowAlarmEnable=   "Form1.frx":5C598
  360.       ScrollLowLowAlarmEnable=   "Form1.frx":5C5C2
  361.       ScrollHighAlarmEnable=   "Form1.frx":5C5EC
  362.       ScrollAlarmMarksEnable=   "Form1.frx":5C616
  363.       ScrollSetpointEnable=   "Form1.frx":5C640
  364.       ScrollHighHighAlarmValue=   "Form1.frx":5C66A
  365.       ScrollHighAlarmValue=   "Form1.frx":5C6A4
  366.       ScrollLowAlarmValue=   "Form1.frx":5C6DE
  367.       ScrollLowLowAlarmValue=   "Form1.frx":5C718
  368.       ScrollSetpointValue=   "Form1.frx":5C752
  369.       SDataXData0     =   "Form1.frx":5C78C
  370.       SDataXData1     =   "Form1.frx":5C7A6
  371.       SDataXData2     =   "Form1.frx":5C7C0
  372.       SDataXData3     =   "Form1.frx":5C7DA
  373.       SDataYData0     =   "Form1.frx":5C7F4
  374.       SDataYData1     =   "Form1.frx":5C80E
  375.       SDataYData2     =   "Form1.frx":5C828
  376.       SDataYData3     =   "Form1.frx":5C842
  377.       ScrollLineColor0=   "Form1.frx":5C85C
  378.       ScrollLineColor1=   "Form1.frx":5C8F6
  379.       ScrollLineColor2=   "Form1.frx":5C990
  380.       ScrollLineColor3=   "Form1.frx":5CA2A
  381.       ScrollLineStyle0=   "Form1.frx":5CAC4
  382.       ScrollLineStyle1=   "Form1.frx":5CB5E
  383.       ScrollLineStyle2=   "Form1.frx":5CBF8
  384.       ScrollLineStyle3=   "Form1.frx":5CC92
  385.       ScrollLineThickness0=   "Form1.frx":5CD2C
  386.       ScrollLineThickness1=   "Form1.frx":5CDC6
  387.       ScrollLineThickness2=   "Form1.frx":5CE60
  388.       ScrollLineThickness3=   "Form1.frx":5CEFA
  389.       ScrollTagName0  =   "Form1.frx":5CF94
  390.       ScrollTagName1  =   "Form1.frx":5D084
  391.       ScrollTagName2  =   "Form1.frx":5D174
  392.       ScrollTagName3  =   "Form1.frx":5D264
  393.    End
  394.    Begin SCROLLXLib.ScrollX ScrollX2 
  395.       Height          =   2892
  396.       Left            =   4680
  397.       TabIndex        =   1
  398.       Top             =   240
  399.       Width           =   4212
  400.       _Version        =   65536
  401.       _ExtentX        =   7429
  402.       _ExtentY        =   5101
  403.       _StockProps     =   0
  404.       DataCursorHandle=   "Form1.frx":5D354
  405.       AxisHandle      =   "Form1.frx":5D3EE
  406.       AxisLableHandle =   "Form1.frx":5D418
  407.       AxisMin         =   "Form1.frx":5D442
  408.       AxisMax         =   "Form1.frx":5D47C
  409.       ScaleEnable     =   "Form1.frx":5D4B6
  410.       AxisEnable      =   "Form1.frx":5D4D8
  411.       AxisInterceptTrack=   "Form1.frx":5D502
  412.       AxisLabelsEnable=   "Form1.frx":5D52C
  413.       AxisScaleMode   =   "Form1.frx":5D556
  414.       AxisIntercept   =   "Form1.frx":5D580
  415.       AxisColor       =   "Form1.frx":5D5BA
  416.       AxisLineWidth   =   "Form1.frx":5D5E4
  417.       AxisMinorTicks  =   "Form1.frx":5D60E
  418.       AxisMajorTickInterval=   "Form1.frx":5D638
  419.       AxisTickStyle   =   "Form1.frx":5D672
  420.       AxisAutoAxis    =   "Form1.frx":5D69C
  421.       AxisLabelPos    =   "Form1.frx":5D6C6
  422.       AxisLabelTimeBase=   "Form1.frx":5D6F0
  423.       AxisLabelAutoUpdate=   "Form1.frx":5D71A
  424.       AxisLabelStartHour=   "Form1.frx":5D744
  425.       AxisLabelStartMin=   "Form1.frx":5D76E
  426.       AxisLabelStartSec=   "Form1.frx":5D798
  427.       AxisLabelDecs   =   "Form1.frx":5D7C2
  428.       AxisLabelColor  =   "Form1.frx":5D7EC
  429.       AxisLabelFont   =   "Form1.frx":5D816
  430.       AxisLabelFontStyle=   "Form1.frx":5D848
  431.       AxisLabelFontSize=   "Form1.frx":5D872
  432.       AxisNumericStyle=   "Form1.frx":5D89C
  433.       AxisTitleString =   "Form1.frx":5D8C6
  434.       AxisTitleFont   =   "Form1.frx":5D8E4
  435.       AxisLabelStrings=   "Form1.frx":5D911
  436.       NumAxisLabelStrings=   "Form1.frx":5D92F
  437.       AxisLabelStringsEnable=   "Form1.frx":5D959
  438.       AxisLabelStringsStart=   "Form1.frx":5D983
  439.       AxisTitleColor  =   "Form1.frx":5D9AD
  440.       AxisTitleFontStyle=   "Form1.frx":7AEDB
  441.       AxisTitleFontSize=   "Form1.frx":7AF05
  442.       AxisTitlePos    =   "Form1.frx":7AF2F
  443.       AxisGridEnable  =   "Form1.frx":7AF59
  444.       AxisGridColor   =   "Form1.frx":7AF83
  445.       AxisGridLineWidth=   "Form1.frx":7AFAD
  446.       AxisGridLineStyle=   "Form1.frx":7AFD7
  447.       AxisGridType    =   "Form1.frx":7B001
  448.       TitleString     =   "Form1.frx":7B02B
  449.       TitleFont       =   "Form1.frx":7B057
  450.       TitleColor      =   "Form1.frx":7B083
  451.       TitleFontStyle  =   "Form1.frx":7B0A9
  452.       TitleFontSize   =   "Form1.frx":7B0CF
  453.       TitlePos        =   "Form1.frx":7B0F5
  454.       PlotHandle      =   "Form1.frx":7B11B
  455.       DataSet         =   "Form1.frx":7B145
  456.       SDataNumPlotPoints=   "Form1.frx":7B16F
  457.       SDataEnable     =   "Form1.frx":7B199
  458.       SDataName       =   "Form1.frx":7B1C3
  459.       SDataNumGroups  =   "Form1.frx":7B1E6
  460.       SDataType       =   "Form1.frx":7B210
  461.       SPlotType       =   "Form1.frx":7B23A
  462.       SPlotDataset    =   "Form1.frx":7B264
  463.       SPlotRefAxes    =   "Form1.frx":7B28E
  464.       SPlotObjectOutlineColor=   "Form1.frx":7B2B8
  465.       ScrollStepMode  =   "Form1.frx":7B2E2
  466.       ScrollSweepLineColor=   "Form1.frx":7B30C
  467.       ScrollRelReset  =   "Form1.frx":7B336
  468.       ScrollRelSize   =   "Form1.frx":7B370
  469.       ScrollSampleInterval=   "Form1.frx":7B3AA
  470.       ScrollXYNumPoints=   "Form1.frx":7B3E4
  471.       ScrollDirection =   "Form1.frx":7B40E
  472.       ScrollBarWidth  =   "Form1.frx":7B438
  473.       AxisGridUpdatePeriod=   "Form1.frx":7B472
  474.       AxisGridUpdateMode=   "Form1.frx":7B4AC
  475.       ScrollHistoryBufferSize=   "Form1.frx":7B4D6
  476.       ScrollAlarmUpdatePeriod=   "Form1.frx":7B500
  477.       ScrollAlarmUpdateMode=   "Form1.frx":7B53A
  478.       ScrollAlarmHorizontal=   "Form1.frx":7B564
  479.       SDataSimulationMode=   "Form1.frx":7B58E
  480.       ScrollNormalAlarmColor=   "Form1.frx":7B5B8
  481.       ScrollLowAlarmColor=   "Form1.frx":7B5E2
  482.       ScrollHighAlarmColor=   "Form1.frx":7B60C
  483.       ScrollLowLowAlarmColor=   "Form1.frx":7B636
  484.       ScrollHighHighAlarmColor=   "Form1.frx":7B660
  485.       ScrollHighHighAlarmEnable=   "Form1.frx":7B68A
  486.       ScrollLowAlarmEnable=   "Form1.frx":7B6B4
  487.       ScrollLowLowAlarmEnable=   "Form1.frx":7B6DE
  488.       ScrollHighAlarmEnable=   "Form1.frx":7B708
  489.       ScrollAlarmMarksEnable=   "Form1.frx":7B732
  490.       ScrollSetpointEnable=   "Form1.frx":7B75C
  491.       ScrollHighHighAlarmValue=   "Form1.frx":7B786
  492.       ScrollHighAlarmValue=   "Form1.frx":7B7C0
  493.       ScrollLowAlarmValue=   "Form1.frx":7B7FA
  494.       ScrollLowLowAlarmValue=   "Form1.frx":7B834
  495.       ScrollSetpointValue=   "Form1.frx":7B86E
  496.       SDataXData0     =   "Form1.frx":7B8A8
  497.       SDataXData1     =   "Form1.frx":7B8C2
  498.       SDataXData2     =   "Form1.frx":7B8DC
  499.       SDataXData3     =   "Form1.frx":7B8F6
  500.       SDataYData0     =   "Form1.frx":7B910
  501.       SDataYData1     =   "Form1.frx":7B92A
  502.       SDataYData2     =   "Form1.frx":7B944
  503.       SDataYData3     =   "Form1.frx":7B95E
  504.       ScrollLineColor0=   "Form1.frx":7B978
  505.       ScrollLineColor1=   "Form1.frx":7BA12
  506.       ScrollLineColor2=   "Form1.frx":7BAAC
  507.       ScrollLineColor3=   "Form1.frx":7BB46
  508.       ScrollLineStyle0=   "Form1.frx":7BBE0
  509.       ScrollLineStyle1=   "Form1.frx":7BC7A
  510.       ScrollLineStyle2=   "Form1.frx":7BD14
  511.       ScrollLineStyle3=   "Form1.frx":7BDAE
  512.       ScrollLineThickness0=   "Form1.frx":7BE48
  513.       ScrollLineThickness1=   "Form1.frx":7BEE2
  514.       ScrollLineThickness2=   "Form1.frx":7BF7C
  515.       ScrollLineThickness3=   "Form1.frx":7C016
  516.       ScrollTagName0  =   "Form1.frx":7C0B0
  517.       ScrollTagName1  =   "Form1.frx":7C1A0
  518.       ScrollTagName2  =   "Form1.frx":7C290
  519.       ScrollTagName3  =   "Form1.frx":7C380
  520.    End
  521.    Begin SCROLLXLib.ScrollX ScrollX1 
  522.       Height          =   2892
  523.       Left            =   120
  524.       TabIndex        =   0
  525.       Top             =   240
  526.       Width           =   4212
  527.       _Version        =   65536
  528.       _ExtentX        =   7429
  529.       _ExtentY        =   5101
  530.       _StockProps     =   0
  531.       DataCursorHandle=   "Form1.frx":7C470
  532.       AxisHandle      =   "Form1.frx":7C50A
  533.       AxisLableHandle =   "Form1.frx":7C534
  534.       AxisMin         =   "Form1.frx":7C55E
  535.       AxisMax         =   "Form1.frx":7C598
  536.       ScaleEnable     =   "Form1.frx":7C5D2
  537.       AxisEnable      =   "Form1.frx":7C5F4
  538.       AxisInterceptTrack=   "Form1.frx":7C61E
  539.       AxisLabelsEnable=   "Form1.frx":7C648
  540.       AxisScaleMode   =   "Form1.frx":7C672
  541.       AxisIntercept   =   "Form1.frx":7C69C
  542.       AxisColor       =   "Form1.frx":7C6D6
  543.       AxisLineWidth   =   "Form1.frx":7C700
  544.       AxisMinorTicks  =   "Form1.frx":7C72A
  545.       AxisMajorTickInterval=   "Form1.frx":7C754
  546.       AxisTickStyle   =   "Form1.frx":7C78E
  547.       AxisAutoAxis    =   "Form1.frx":7C7B8
  548.       AxisLabelPos    =   "Form1.frx":7C7E2
  549.       AxisLabelTimeBase=   "Form1.frx":7C80C
  550.       AxisLabelAutoUpdate=   "Form1.frx":7C836
  551.       AxisLabelStartHour=   "Form1.frx":7C860
  552.       AxisLabelStartMin=   "Form1.frx":7C88A
  553.       AxisLabelStartSec=   "Form1.frx":7C8B4
  554.       AxisLabelDecs   =   "Form1.frx":7C8DE
  555.       AxisLabelColor  =   "Form1.frx":7C908
  556.       AxisLabelFont   =   "Form1.frx":7C932
  557.       AxisLabelFontStyle=   "Form1.frx":7C964
  558.       AxisLabelFontSize=   "Form1.frx":7C98E
  559.       AxisNumericStyle=   "Form1.frx":7C9B8
  560.       AxisTitleString =   "Form1.frx":7C9E2
  561.       AxisTitleFont   =   "Form1.frx":7CA00
  562.       AxisLabelStrings=   "Form1.frx":7CA2D
  563.       NumAxisLabelStrings=   "Form1.frx":7CA4B
  564.       AxisLabelStringsEnable=   "Form1.frx":7CA75
  565.       AxisLabelStringsStart=   "Form1.frx":7CA9F
  566.       AxisTitleColor  =   "Form1.frx":7CAC9
  567.       AxisTitleFontStyle=   "Form1.frx":99FF7
  568.       AxisTitleFontSize=   "Form1.frx":9A021
  569.       AxisTitlePos    =   "Form1.frx":9A04B
  570.       AxisGridEnable  =   "Form1.frx":9A075
  571.       AxisGridColor   =   "Form1.frx":9A09F
  572.       AxisGridLineWidth=   "Form1.frx":9A0C9
  573.       AxisGridLineStyle=   "Form1.frx":9A0F3
  574.       AxisGridType    =   "Form1.frx":9A11D
  575.       TitleString     =   "Form1.frx":9A147
  576.       TitleFont       =   "Form1.frx":9A173
  577.       TitleColor      =   "Form1.frx":9A19F
  578.       TitleFontStyle  =   "Form1.frx":9A1C5
  579.       TitleFontSize   =   "Form1.frx":9A1EB
  580.       TitlePos        =   "Form1.frx":9A211
  581.       PlotHandle      =   "Form1.frx":9A237
  582.       DataSet         =   "Form1.frx":9A261
  583.       SDataNumPlotPoints=   "Form1.frx":9A28B
  584.       SDataEnable     =   "Form1.frx":9A2B5
  585.       SDataName       =   "Form1.frx":9A2DF
  586.       SDataNumGroups  =   "Form1.frx":9A302
  587.       SDataType       =   "Form1.frx":9A32C
  588.       SPlotType       =   "Form1.frx":9A356
  589.       SPlotDataset    =   "Form1.frx":9A380
  590.       SPlotRefAxes    =   "Form1.frx":9A3AA
  591.       SPlotObjectOutlineColor=   "Form1.frx":9A3D4
  592.       ScrollStepMode  =   "Form1.frx":9A3FE
  593.       ScrollSweepLineColor=   "Form1.frx":9A428
  594.       ScrollRelReset  =   "Form1.frx":9A452
  595.       ScrollRelSize   =   "Form1.frx":9A48C
  596.       ScrollSampleInterval=   "Form1.frx":9A4C6
  597.       ScrollXYNumPoints=   "Form1.frx":9A500
  598.       ScrollDirection =   "Form1.frx":9A52A
  599.       ScrollBarWidth  =   "Form1.frx":9A554
  600.       AxisGridUpdatePeriod=   "Form1.frx":9A58E
  601.       AxisGridUpdateMode=   "Form1.frx":9A5C8
  602.       ScrollHistoryBufferSize=   "Form1.frx":9A5F2
  603.       ScrollAlarmUpdatePeriod=   "Form1.frx":9A61C
  604.       ScrollAlarmUpdateMode=   "Form1.frx":9A656
  605.       ScrollAlarmHorizontal=   "Form1.frx":9A680
  606.       SDataSimulationMode=   "Form1.frx":9A6AA
  607.       ScrollNormalAlarmColor=   "Form1.frx":9A6D4
  608.       ScrollLowAlarmColor=   "Form1.frx":9A6FE
  609.       ScrollHighAlarmColor=   "Form1.frx":9A728
  610.       ScrollLowLowAlarmColor=   "Form1.frx":9A752
  611.       ScrollHighHighAlarmColor=   "Form1.frx":9A77C
  612.       ScrollHighHighAlarmEnable=   "Form1.frx":9A7A6
  613.       ScrollLowAlarmEnable=   "Form1.frx":9A7D0
  614.       ScrollLowLowAlarmEnable=   "Form1.frx":9A7FA
  615.       ScrollHighAlarmEnable=   "Form1.frx":9A824
  616.       ScrollAlarmMarksEnable=   "Form1.frx":9A84E
  617.       ScrollSetpointEnable=   "Form1.frx":9A878
  618.       ScrollHighHighAlarmValue=   "Form1.frx":9A8A2
  619.       ScrollHighAlarmValue=   "Form1.frx":9A8DC
  620.       ScrollLowAlarmValue=   "Form1.frx":9A916
  621.       ScrollLowLowAlarmValue=   "Form1.frx":9A950
  622.       ScrollSetpointValue=   "Form1.frx":9A98A
  623.       SDataXData0     =   "Form1.frx":9A9C4
  624.       SDataXData1     =   "Form1.frx":9A9DE
  625.       SDataXData2     =   "Form1.frx":9A9F8
  626.       SDataXData3     =   "Form1.frx":9AA12
  627.       SDataYData0     =   "Form1.frx":9AA2C
  628.       SDataYData1     =   "Form1.frx":9AA46
  629.       SDataYData2     =   "Form1.frx":9AA60
  630.       SDataYData3     =   "Form1.frx":9AA7A
  631.       ScrollLineColor0=   "Form1.frx":9AA94
  632.       ScrollLineColor1=   "Form1.frx":9AB2E
  633.       ScrollLineColor2=   "Form1.frx":9ABC8
  634.       ScrollLineColor3=   "Form1.frx":9AC62
  635.       ScrollLineStyle0=   "Form1.frx":9ACFC
  636.       ScrollLineStyle1=   "Form1.frx":9AD96
  637.       ScrollLineStyle2=   "Form1.frx":9AE30
  638.       ScrollLineStyle3=   "Form1.frx":9AECA
  639.       ScrollLineThickness0=   "Form1.frx":9AF64
  640.       ScrollLineThickness1=   "Form1.frx":9AFFE
  641.       ScrollLineThickness2=   "Form1.frx":9B098
  642.       ScrollLineThickness3=   "Form1.frx":9B132
  643.       ScrollTagName0  =   "Form1.frx":9B1CC
  644.       ScrollTagName1  =   "Form1.frx":9B2BC
  645.       ScrollTagName2  =   "Form1.frx":9B3AC
  646.       ScrollTagName3  =   "Form1.frx":9B49C
  647.    End
  648. Attribute VB_Name = "Form1"
  649. Attribute VB_GlobalNameSpace = False
  650. Attribute VB_Creatable = False
  651. Attribute VB_PredeclaredId = True
  652. Attribute VB_Exposed = False
  653. Option Explicit
  654. Dim rData1(5) As Double
  655. Dim rData2(5) As Double
  656. Dim rData3(5) As Double
  657. Dim rData4(5) As Double
  658. Dim rData5(5) As Double
  659. Dim nUpdateCounter As Integer
  660. Private Sub Form_Load()
  661.     Call BuildGraph1
  662.     Call BuildGraph2
  663.     Call BuildGraph3
  664.     Call BuildGraph4
  665.     Call BuildGraph5
  666. End Sub
  667. Private Sub BuildGraph1()
  668.     ScrollX1.SDataEnable(0) = True   ' enable the 1st data set
  669.     ScrollX1.SPlotType(0) = SCROLLING_LINE_GRAPH
  670.     ScrollX1.SDataNumGroups(0) = 4   ' four channels of data
  671.     rData1(0) = 2
  672.     rData1(1) = 4
  673.     rData1(2) = 6
  674.     rData1(3) = 8
  675.     'axis
  676.     ScrollX1.AxisMax(X_AXIS1) = 25#    ' x axis from 0 - 25
  677.     ScrollX1.AxisEnable(X_AXIS2) = True   'enable the second x axis
  678.     ScrollX1.AxisEnable(Y_AXIS2) = True   'enable the second x axis
  679.     ScrollX1.AxisMajorTickInterval(X_AXIS1) = 5#    'label every 5 units
  680.     'alarm updating
  681.     ScrollX1.ScrollAlarmMarksEnable(0) = True   'enable alarm marks
  682.     ScrollX1.ScrollLowAlarmEnable(0) = True   'enable lo alarm line
  683.     ScrollX1.ScrollHighAlarmEnable(0) = True   'enable hi alarm line
  684.     ScrollX1.ScrollSetpointEnable(0) = True   'enable set point line
  685.     'title
  686.     ScrollX1.TitleString(TITLE1) = "Scroll Graph"   'graph title
  687.     'window
  688.     ScrollX1.WindowBackgroundColor = C_LIGHTBLUE  'background color
  689.     ScrollX1.WindowBorderStyle = RC_HIGH
  690.     'use internal timer
  691.     ScrollX1.EnableInternalTimer = True
  692. End Sub
  693. Private Sub BuildGraph2()
  694.     ScrollX2.SPlotType(0) = SWEEP_GRAPH   '
  695.     ScrollX2.ScrollDirection(0) = True   ' vertical scrolling
  696.     ScrollX2.ScrollDirection(1) = True   ' vertical scrolling
  697.     ScrollX2.SDataEnable(0) = True   ' enable the 1st data set
  698.     ScrollX2.SDataNumGroups(0) = 2   ' two channels of data
  699.     ScrollX2.SDataEnable(1) = True   ' enable the 2ND data set
  700.     ScrollX2.SDataNumGroups(1) = 1   ' one channels of data
  701.     'axis attributes
  702.     ScrollX2.AxisMax(Y_AXIS1) = 25#    ' Y axis from 0 - 25
  703.     ScrollX2.AxisMajorTickInterval(Y_AXIS1) = 5#
  704.     'font attributes for axis labels
  705.     ScrollX2.AxisLabelFontStyle(X_AXIS1) = TEXT_BOLD
  706.     ScrollX2.AxisLabelFontStyle(Y_AXIS1) = TEXT_BOLD
  707.     ScrollX2.AxisLabelFontSize(X_AXIS1) = 10
  708.     ScrollX2.AxisLabelFontSize(Y_AXIS1) = 10
  709.     ScrollX2.AxisLabelColor(X_AXIS1) = RGB_LIGHTBLUE
  710.     ScrollX2.AxisLabelColor(Y_AXIS1) = RGB_LIGHTBLUE
  711.     rData2(0) = 10
  712.     rData2(1) = 15
  713.     ScrollX2.ScrollSweepLineColor(0) = RGB_LIGHTRED   ' set color for sweep line
  714.     ScrollX2.ScrollLineColor(0, 0) = RGB_YELLOW
  715.     ScrollX2.ScrollLineColor(0, 1) = RGB_WHITE
  716.     ScrollX2.ScrollLineColor(1, 0) = RGB_BLUE
  717.     'title
  718.     ScrollX2.TitleString(TITLE1) = "Sweep Graph"
  719.     ScrollX2.TitleFontStyle(TITLE1) = TEXT_BOLD
  720.     ScrollX2.TitleFontSize(TITLE1) = 12
  721.     ScrollX2.AxisTitleString(X_AXIS1) = "X Axis Title"
  722.     ScrollX2.AxisTitleString(Y_AXIS1) = "Y Axis Title"
  723.     'colors
  724.     ScrollX2.PlotBackgroundColor = RGB_PALEBLUE
  725.     ScrollX2.WindowBackgroundColor = RGB_LIGHTGRAY
  726.     'plotting area
  727.     ScrollX2.RightPlotArea = 0.92
  728.     ScrollX2.BottomPlotArea = 0.8
  729.     'use internal timer
  730.     ScrollX2.EnableInternalTimer = True
  731. End Sub
  732. Private Sub BuildGraph3()
  733.     ScrollX3.SPlotType(0) = SCROLLING_BAR_GRAPH     '
  734.     ScrollX3.SDataEnable(0) = True   ' enable the 1st data set
  735.     ScrollX3.ScrollRelReset(0) = 0.5   'reset to 1/2
  736.         ScrollX3.ScrollBarWidth(0) = 0.75
  737.     'axis
  738.     ScrollX3.AxisMax(Y_AXIS1) = 15#    ' y axis range -5  to 15
  739.     ScrollX3.AxisMin(Y_AXIS1) = -5#
  740.     ScrollX3.AxisMajorTickInterval(Y_AXIS1) = 5#    'label every 5 units
  741.     ScrollX3.AxisGridEnable(Y_AXIS1) = True
  742.     rData3(0) = 7
  743.     'colors
  744.     ScrollX3.WindowBackgroundColor = RGB_YELLOW
  745.     'title
  746.     ScrollX3.TitleFontStyle(TITLE1) = TEXT_BOLD
  747.     ScrollX3.TitleString(TITLE1) = "Scrolling Bar"
  748.     'internal timer
  749.     ScrollX3.EnableInternalTimer = True
  750. End Sub
  751. Private Sub BuildGraph4()
  752.  Dim sLegendStrings As String
  753.  Dim CR As String
  754.     ScrollX4.SPlotType(0) = VARIABLE_SCROLLING_GRAPH   '
  755.     ScrollX4.TitleString(TITLE1) = "Variable Scrolling"
  756.     ScrollX4.SDataEnable(0) = True   ' enable the 1st data set
  757.     ScrollX4.SDataNumGroups(0) = 5   ' Groups must = #channels + 1
  758.     ScrollX4.AxisMax(X_AXIS1) = 50#    ' x axis from 0 - 50
  759.     rData4(0) = 2
  760.     rData4(1) = 4
  761.     rData4(2) = 6
  762.     rData4(3) = 8
  763.     ScrollX4.ScrollLineColor(0, 0) = RGB_GREEN
  764.     ScrollX4.ScrollLineColor(0, 1) = RGB_LIGHTMAGENTA
  765.     ScrollX4.ScrollLineColor(0, 2) = RGB_LIGHTRED
  766.     ScrollX4.ScrollLineColor(0, 3) = RGB_LIGHTBLUE
  767.     ScrollX4.LeftPlotArea = 0.12
  768.     ScrollX4.TopPlotArea = 0.3
  769.     ScrollX4.RightPlotArea = 0.92
  770.     ScrollX4.BottomPlotArea = 0.87
  771.     'legends
  772.     CR = Chr(13)  ' make CR a carriage return string
  773.     sLegendStrings = "Boston" + CR + "Chicago" + CR + "Los Angeles" + CR + "Dallas" + CR
  774.     ScrollX4.SLegendEnable = True  'must enable to view!
  775.     ScrollX4.SLegendLeft = 0.05   'establish position
  776.     ScrollX4.SLegendTop = 0.08
  777.     ScrollX4.SLegendRight = 0.95
  778.     ScrollX4.SLegendBottom = 0.27
  779.     ScrollX4.SLegendOrientation = OR_HORZ  'horizontal
  780.     ScrollX4.SLegendFontSize = 8
  781.     ScrollX4.sLegendStrings = sLegendStrings
  782.     'colors
  783.     ScrollX4.WindowBackgroundColor = RGB_MEDGRAY
  784.     'internal timer
  785.     ScrollX4.EnableInternalTimer = True
  786. End Sub
  787. Private Sub BuildGraph5()
  788.     ScrollX5.SPlotType(0) = SCROLLING_XY_GRAPH   '
  789.     ScrollX5.SDataNumGroups(0) = 4   ' groups must = #channels * 2
  790.     ScrollX5.SDataEnable(0) = True   ' enable the 1st data set
  791.     ScrollX5.ScrollXYNumPoints(0) = 100   ' 100 pts in the buffer
  792.     nUpdateCounter = 0
  793.     'axis
  794.     ScrollX5.AxisMin(X_AXIS1) = -10#    ' x axis from -10 - 10
  795.     ScrollX5.AxisMax(X_AXIS1) = 10#
  796.     ScrollX5.AxisMin(Y_AXIS1) = -10#    ' x axis from -10 - 10
  797.     ScrollX5.AxisMax(Y_AXIS1) = 10#
  798.     'color
  799.     ScrollX5.WindowBackgroundColor = RGB_PALEBLUE
  800.     'title
  801.     ScrollX5.TitleString(TITLE1) = "XY Plot"
  802.     'timer
  803.     ScrollX5.EnableInternalTimer = True
  804. End Sub
  805. Private Sub ScrollX1_OnInternalTimer()
  806.  Dim i As Integer
  807.   For i = 0 To 3
  808.       rData1(i) = rData1(i) + (0.5 - Rnd)
  809.   Next i
  810.   Call ScrollX1.UpdateDynData(0, rData1(0))
  811. End Sub
  812. Private Sub ScrollX2_OnInternalTimer()
  813.  Dim i As Integer
  814.   For i = 0 To 1
  815.       rData2(i) = rData2(i) + 3 * (0.5 - Rnd)
  816.   Next i
  817.   Call ScrollX2.UpdateDynData(0, rData2(0))
  818. End Sub
  819. Private Sub ScrollX3_OnInternalTimer()
  820.   rData3(0) = rData3(0) + 2 * (0.5 - Rnd)
  821.   Call ScrollX3.UpdateDynData(0, rData3(0))
  822. End Sub
  823. Private Sub ScrollX4_OnInternalTimer()
  824.  Dim i As Integer
  825.  For i = 0 To 3
  826.      rData4(i) = rData4(i) + (0.5 - Rnd)
  827.   Next i
  828.   rData4(4) = 5 * Rnd    ' Random time interval
  829.   Call ScrollX4.UpdateDynData(0, rData4(0))
  830. End Sub
  831. Private Sub ScrollX5_OnInternalTimer()
  832.   Dim rData(4) As Double
  833.   Dim rMin As Double
  834.   Dim rMax As Double
  835.   Dim rRange As Double
  836.   Dim rUpdateValue As Double
  837.   Dim i As Integer
  838.   Dim nNumTraces As Integer
  839.   nNumTraces = ScrollX5.SDataNumGroups(0) / 2
  840.   For i = 0 To nNumTraces - 1
  841.     rUpdateValue = nUpdateCounter / 16#
  842.         ' X value for XY plot
  843.     rData5(i) = 0.95 * 9# * Sin(rUpdateValue) / 2
  844.         ' Y value for XY plot
  845.     rData5(i + nNumTraces) = 0.95 * 9# * Sin(rUpdateValue * 1.1 + 0.5 + i * rUpdateValue) / 2
  846.   Next i
  847.    nUpdateCounter = nUpdateCounter + 1
  848.    Call ScrollX5.UpdateDynData(0, rData5(0))
  849. End Sub
  850.